home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d17 / banner.arc / BANNER.BAS next >
BASIC Source File  |  1986-02-23  |  4KB  |  126 lines
  1.  
  2.  
  3.  
  4.  
  5. 20 REM
  6. 30 REM COMPUTERS: MOST (NOT INCL. APPLE)
  7. 40 REM
  8. 50 REM LANGUAGE REQUIRED:BASIC
  9. 60 REM
  10. 70 REM APPROX. DOWNLOAD TIME(MIN.): 5
  11. 80 REM
  12. 90 REM ****************************************************
  13. 100 REM
  14. 110 REM CREATE LONG BANNERS WITH WHATEVER YOU WANT TO SAY ON
  15. 120 REM
  16. 130 REM THEM.   GREAT  FOR  PARTIES,  FESTIVITIES,  AND  FOR
  17. 140 REM
  18. 150 REM GETTING YOUR MESSAGE ACROSS.
  19. 160 REM
  20. 720 REM PROGRAM BY TOM KELLY TO PLOT WORDS ON TELETYPE
  21. 730 REM *************************10/24/75*****************************
  22. 740 INPUT "WOULD YOU LIKE A HARDCOPY ";Q$
  23. 750 IF LEFT$(Q$,1) = "Y" THEN PFLAG = -1
  24. 760 DIM M(60,6),P(15)
  25. 770 PRINT "SIZE  (1-7)";
  26. 780 INPUT Z
  27. 790 PRINT "WHAT'S YOUR MESSAGE";
  28. 800 INPUT B$
  29. 810 PRINT
  30. 820 PRINT "METHOD (1 OR 2)";
  31. 830 INPUT A
  32. 840 IF A<>2 THEN 870
  33. 850 PRINT " INPUT 2 OF YOUR CHARACTERS";
  34. 860 INPUT C$
  35. 870 IF PFLAG THEN LPRINT ELSE PRINT
  36. 880 A$="ABCDEFGHIJKLMNOPQRSTUVWXYZ 0123456789<>=#+-*/\()[].,;:!"
  37. 890 A$=A$+"?&$%":REM "&" GIVES QUOTE
  38. 900 FOR N=1 TO 60: FOR N1=1 TO 6:READ M(N,N1):NEXT N1,N
  39. 910 FOR I=1 TO 9
  40. 920 LET T(I)=2^(I)-1
  41. 930 NEXT I
  42. 940 FOR I=1 TO LEN(B$)
  43. 950 FOR J=1 TO 60
  44. 960 IF MID$(A$,J,1)<>MID$(B$,I,1) THEN 990
  45. 970 F=J
  46. 980 GOTO 1000
  47. 990 NEXT J
  48. 1000 FOR K=1 TO 6
  49. 1010 LET X=M(F,K)
  50. 1020 IF X=0 THEN 1300
  51. 1030 FOR Q=1 TO 9
  52. 1040 IF T(Q)<X THEN 1070
  53. 1050 LET Y=Q
  54. 1060 GOTO 1080
  55. 1070 NEXT Q
  56. 1080 FOR L=1 TO 9
  57. 1090 LET P(L)=X-2*INT(X/2)
  58. 1100 LET X=INT(X/2)
  59. 1110 NEXT L
  60. 1120 FOR M=1 TO Z
  61. 1130 FOR O=1 TO Y
  62. 1140 IF P(O)=0 THEN 1230
  63. 1150 FOR Z1=1 TO Z
  64. 1160 ON A GOTO 1170,1200
  65. 1170 IF PFLAG THEN  GOTO  1660 ELSE PRINT MID$(B$,I,1)MID$(B$,I,1);
  66. 1180 REM RETURN FROM PSEUDO SUBROUTINE
  67. 1190 GOTO 1210
  68. 1200 IF PFLAG THEN LPRINT C$; ELSE PRINT C$;
  69. 1210 NEXT Z1
  70. 1220 GOTO 1260
  71. 1230 FOR Z2=1 TO Z
  72. 1240 IF PFLAG THEN LPRINT "  "; ELSE PRINT "  ";
  73. 1250 NEXT Z2
  74. 1260 NEXT O
  75. 1270 IF PFLAG THEN LPRINT ELSE PRINT
  76. 1280 NEXT M
  77. 1290 GOTO 1320
  78. 1300 IF PFLAG THEN LPRINT ELSE PRINT
  79. 1310 IF PFLAG THEN LPRINT ELSE PRINT
  80. 1320 NEXT K
  81. 1330 NEXT I
  82. 1340 IF PFLAG THEN LPRINT ELSE PRINT
  83. 1350 DATA 511,264,264,264,511,0,511,273,273,273,238,0
  84. 1360 DATA 511,257,257,257,387,0,511,257,257,257,254,0
  85. 1370 DATA 511,273,273,273,257,0,511,272,272,256,256,0
  86. 1380 DATA 511,257,273,273,415,0,511,16,16,16,511,0
  87. 1390 DATA 0,257,511,257,0,0,3,1,1,1,511,0
  88. 1400 DATA 511,16,40,68,387,0,511,1,1,1,1,0
  89. 1410 DATA 511,96,24,96,511,0,511,96,24,6,511,0
  90. 1420 DATA 511,257,257,257,511,0,511,272,272,272,496,0
  91. 1430 DATA 511,257,261,259,511,0,511,272,272,272,239,0
  92. 1440 DATA 499,273,273,273,415,0,256,256,511,256,256,0
  93. 1450 DATA 510,1,1,1,510,0,496,12,3,12,496,0
  94. 1460 DATA 511,12,48,12,511,0,387,204,48,204,387,0
  95. 1470 DATA 384,96,31,96,384,0,259,269,313,353,385,0,0,0,0,0,0,0
  96. 1480 DATA 511,263,313,449,511,0,0,129,511,1,0,0
  97. 1490 DATA 391,265,281,273,225,0,387,273,273,273,495,0
  98. 1500 DATA 496,16,16,16,511,0,499,273,273,273,270,0
  99. 1510 DATA 511,273,273,273,415,0,384,263,280,352,384,0
  100. 1520 DATA 238,273,273,273,238,0,499,273,273,273,511,0
  101. 1530 DATA 16,40,40,68,68,0,68,68,40,40,16,0
  102. 1540 DATA 40,40,40,40,40,0,40,124,40,124,40,0
  103. 1550 DATA 16,16,124,16,16,0,16,16,16,16,16,0,68,40,254,40,68,0
  104. 1560 DATA 3,14,56,224,384,0,384,224,56,14,3,0
  105. 1570 DATA 0,56,198,387,257,0,257,387,198,56,0,0
  106. 1580 DATA 0,511,257,257,0,0,0,257,257,511,0,0
  107. 1590 DATA 0,0,1,1,0,0,0,0,2,3,0,0
  108. 1600 DATA 0,0,130,131,0,0,0,0,130,130,0,0
  109. 1610 DATA 0,0,509,509,0,0,128,256,269,285,224,0
  110. 1620 DATA 0,448,0,448,0,0,0,0,448,0,0,0
  111. 1630 DATA 499,273,511,273,415,0,387,398,312,483,487,0
  112. 1640 END
  113. 1650 END
  114. 1660 LPRINT MID$(B$,I,1)MID$(B$,I,1);
  115. 1670 GOTO 1180
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.       * SUCCESSFUL TRANSMISSION *
  123.  
  124.  
  125. PRESS (D)OWNLOAD, (Q)UIT: 
  126.